home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / id001.dxr / 00045.ls < prev    next >
Encoding:
Text File  |  2001-03-02  |  400 b   |  26 lines
  1. on exitFrame
  2.   if the timer > 120 then
  3.     set call to random(2)
  4.     if call = 1 then
  5.       go(65)
  6.     else
  7.       if call = 2 then
  8.         startTimer()
  9.         puppetSprite(6, 1)
  10.         go(75)
  11.       end if
  12.     end if
  13.   else
  14.     go(the frame)
  15.   end if
  16. end
  17.  
  18. on mouseUp
  19.   repeat with n = 21 down to 1
  20.     set the visible of sprite n to 1
  21.     puppetSprite(n, 0)
  22.   end repeat
  23.   sound stop 1
  24.   go(10)
  25. end
  26.